home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs07.d81 / spooler.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  3KB  |  48 lines
  1. 10 PRINT"[147]";SPC(11);"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  2. 20 PRINTSPC(11);"[194]PRINTER  BUFFER[194]"
  3. 30 PRINTSPC(11);"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  4. 40 PRINT"";SPC(16);"LOADING"
  5. 50 CL=PEEK(53280):LN=1000:AD=49152
  6. 60 READLN$:IFLN$="Z"THEN180
  7. 70 CK=0:FORI=1TOLEN(LN$)STEP2
  8. 80 A=ASC(MID$(LN$,I,1))-48:IFA>9THENA=A-7
  9. 90 A=A*16:B=ASC(MID$(LN$,I+1,1))-48:IFB>9THENB=B-7
  10. 100 A=A+B:CK=CK+A:IFCK>255THENCK=CK-256
  11. 110 POKE53280,A:POKEAD,A:AD=AD+1
  12. 120 NEXTI:READA:IFA=CKTHEN140
  13. 130 PRINT:PRINT"CHECKSUM ERROR IN";LN:END
  14. 140 LN=LN+10:GOTO60
  15. 180 POKE53280,CL:PRINT"  ENTER THE DELAY COUNTER (1-255)";:INPUTCT
  16. 190 IFCT<1ORCT>255THENPRINT"[145][145][145]";:GOTO180
  17. 200 POKE49377,CT:PRINT"";SPC(8);"PRINTER DEVICE NUMBER"
  18. 205 PRINTSPC(8)"(4, 5 OR 6 PLOTTER)";:INPUTDV
  19. 207 IFDV<4ORDV>6THENPRINT"[145][145][145][145]";:GOTO200
  20. 210 POKE49352,DV:POKE49528,DV
  21. 220 PRINT"";SPC(9);"SYS 49152 - BUFFER ON"
  22. 230 PRINTSPC(9);"SYS 49155 - BUFFER OFF"
  23. 240 PRINTSPC(9);"SYS 49158 - CLEAR BUFFER"
  24. 250 END
  25. 1000 DATA 4C36C04C24C078A9008D25C18D87C18D6BC18D6EC1A9FF8D6CC1A9, 91 
  26. 1010 DATA E08D26C18D88C1586078A9318D1403A9EA8D150358A9018D73C160, 51 
  27. 1020 DATA AD26038D2EC18D7DC1AD27038D2FC18D7EC1A9748D2603A9C18D27, 46 
  28. 1030 DATA 03AD30038DC2C1AD31038DC3C1A9BE8D3003A9C18D3103AD32038D, 166 
  29. 1040 DATA C8C1AD33038DC9C1A9C48D3203A9C18D3303AD2C038DB6C1AD2D03, 156 
  30. 1050 DATA 8DB7C1A9B58D2C03A9C18D2D03AD20038D30C28D18C1AD21038D31, 138 
  31. 1060 DATA C28D19C1A9DE8D2003A9C18D2103A9BA8D01C0A9C08D02C078A9DD, 226 
  32. 1070 DATA 8D1403A9C08D1503A90EA206A0FF20BAFFA90020BDFF20C0FF58A9, 238 
  33. 1080 DATA 008D73C160AD6FC1C90AD01AA9008D6FC1AD26C1CD88C1D013AD25, 128 
  34. 1090 DATA C1CD87C1D00BAD6EC1D006EE6FC14C31EAA59AC903D0F4A0318C14, 40 
  35. 1100 DATA 03A0EA8C150358A20E20000078A5018D6DC129F88501AD00E0AC6D, 127 
  36. 1110 DATA C184015820000020CCFFEE6BC1D003EE6CC1AD6CC1C900D005A9E0, 178 
  37. 1120 DATA 8D6CC1EE25C1D00FEE26C1AD26C1C900D005A9E08D26C178A0DD8C, 242 
  38. 1130 DATA 1403A0C08C1503A0004CFEC000FF0000000000000048A59AC906F0, 10 
  39. 1140 DATA 04684C0000AD73C1D0F778688D00E0EE87C1D003EE88C1AD88C1CD, 176 
  40. 1150 DATA 6CC1D00DAD87C1CD6BC1D005A9018D6EC1AD88C1C900D005A9E08D, 221 
  41. 1160 DATA 88C1185860202FF30820BAC0286020CDC14C000020CDC12000004C, 153 
  42. 1170 DATA B5C1084878A9318D1403A9EA8D150358682860780848AD6EC1F039, 9 
  43. 1180 DATA 98488A48ADE1C08D71C1A9018DE1C0A9008D6FC158A9068D72C1A0, 100 
  44. 1190 DATA 00A200CAD0FD88D0FACE72C1D0F5A9008D6EC178AD71C18DE1C068, 163 
  45. 1200 DATA AA68A8A9318D1403A9EA8D15038E70C1682858200000AD73C1D010, 248 
  46. 1210 DATA 780848A9DD8D1403A9C08D150368285860, 72 
  47. 1220 DATA "Z" : REM - END OF DATA
  48.